Visual Basic Source Code

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fld2_16 / ejfold.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1994-12-28 | 14.1 KB | 425 lines

VERSION 2.00 Begin Form Form1 BackColor = &H00808080& BorderStyle = 3 'Fixed Double Caption = "Example of FOLDERS-II v1.6" ClientHeight = 4548 ClientLeft = 1020 ClientTop = 1536 ClientWidth = 5832 ForeColor = &H00000000& Height = 4992 KeyPreview = -1 'True Left = 960 LinkTopic = "Form1" ScaleHeight = 4548 ScaleWidth = 5832 Top = 1152 Width = 5952 Begin PictureBox Picture1 Height = 264 Index = 0 Left = 4680 ScaleHeight = 240 ScaleWidth = 240 TabIndex = 13 TabStop = 0 'False Top = 3924 Width = 264 End Begin PictureBox InsidePicture Height = 408 Index = 3 Left = 5292 ScaleHeight = 384 ScaleWidth = 420 TabIndex = 12 TabStop = 0 'False Tag = "Tabs1" Top = 3240 Width = 444 End Begin PictureBox InsidePicture AutoSize = -1 'True Height = 408 Index = 2 Left = 4860 Picture = EJFOLD.FRX:0000 ScaleHeight = 384 ScaleWidth = 384 TabIndex = 11 Tag = "Tabs1" Top = 3240 Visible = 0 'False Width = 408 End Begin PictureBox InsidePicture AutoSize = -1 'True Height = 408 Index = 1 Left = 4428 Picture = EJFOLD.FRX:0442 ScaleHeight = 384 ScaleWidth = 384 TabIndex = 10 Tag = "Tabs1" Top = 3240 Visible = 0 'False Width = 408 End Begin PictureBox InsidePicture AutoSize = -1 'True Height = 408 Index = 0 Left = 3996 Picture = EJFOLD.FRX:0744 ScaleHeight = 384 ScaleWidth = 384 TabIndex = 9 Tag = "Tabs1" Top = 3240 Visible = 0 'False Width = 408 End Begin PictureBox Picture1 Height = 264 Index = 1 Left = 5040 ScaleHeight = 240 ScaleWidth = 240 TabIndex = 8 TabStop = 0 'False Top = 3924 Width = 264 End Begin SSPanel Panel3D Alignment = 0 'Left Justify - TOP BevelWidth = 2 BorderWidth = 1 Caption = "Tab &4\$With two lines" FloodColor = &H00C0C0C0& Height = 2928 Index = 3 Left = 648 Outline = -1 'True TabIndex = 3 Tag = "Tabs1" Top = 3672 Width = 3288 Begin SSFrame Frame3D1 Caption = "something" Height = 2316 Left = 180 TabIndex = 5 Top = 396 Width = 2928 Begin ComboBox Combo1 BackColor = &H00C0C0C0& Height = 1452 Left = 144 Style = 1 'Simple Combo TabIndex = 6 TabStop = 0 'False Top = 540 Width = 2676 End End End Begin SSPanel Panel3D Alignment = 0 'Left Justify - TOP BevelWidth = 2 BorderWidth = 1 FloodColor = &H00C0C0C0& Height = 2928 Index = 2 Left = 468 Outline = -1 'True TabIndex = 2 Tag = "Tabs1" Top = 3456 Width = 3252 Begin ListBox List1 Height = 2328 Left = 216 TabIndex = 7 TabStop = 0 'False Top = 360 Width = 2748 End End Begin SSPanel Panel3D Alignment = 0 'Left Justify - TOP BevelWidth = 2 BorderWidth = 1 Caption = "Tab &1 (this is being cut)" FloodColor = &H00C0C0C0& Height = 2928 Index = 1 Left = 288 Outline = -1 'True TabIndex = 1 Tag = "Tabs1" Top = 3240 Width = 3288 Begin CommandButton Command2 Caption = "Change Folder 1" Height = 336 Left = 792 TabIndex = 16 Top = 1440 Width = 1524 End Begin PictureBox Picture2 AutoSize = -1 'True Height = 624 Left = 1080 Picture = EJFOLD.FRX:0A46 ScaleHeight = 600 ScaleWidth = 960 TabIndex = 14 Top = 612 Width = 984 End Begin Label Label1 BackStyle = 0 'Transparent Caption = "Use this button to change the active Tab in Folder 1 (inside Folder 0, Tab0)." Height = 732 Left = 252 TabIndex = 18 Top = 1980 Width = 2748 End End Begin SSPanel Panel3D Alignment = 0 'Left Justify - TOP BevelWidth = 2 BorderWidth = 1 Caption = "Tab &0\$With three\$lines" FloodColor = &H00C0C0C0& Height = 2928 Index = 0 Left = 288 Outline = -1 'True RoundedCorners = 0 'False TabIndex = 0 Tag = "Tabs1" Top = 216 Width = 5412 Begin PictureBox folder1_container BackColor = &H00C0C0C0& BorderStyle = 0 'None Height = 1956 Left = 216 ScaleHeight = 1956 ScaleWidth = 3072 TabIndex = 22 Top = 864 Width = 3072 Begin SSPanel folder2 Alignment = 0 'Left Justify - TOP BevelWidth = 2 BorderWidth = 1 Caption = "Folder 1 Tab 1" FloodColor = &H00FF00FF& Height = 1380 Index = 1 Left = 108 Outline = -1 'True TabIndex = 27 Tag = "Tabs2" Top = 504 Width = 2172 Begin SSCheck Check3D3 Caption = "something 1" Height = 264 Left = 396 TabIndex = 29 TabStop = 0 'False Top = 360 Width = 1344 End Begin SSCheck Check3D4 Caption = "something 2" Height = 264 Left = 396 TabIndex = 28 TabStop = 0 'False Top = 756 Width = 1416 End End Begin PictureBox Picture1 Height = 264 Index = 2 Left = 2592 ScaleHeight = 240 ScaleWidth = 240 TabIndex = 26 TabStop = 0 'False Top = 1512 Width = 264 End Begin PictureBox Picture1 Height = 264 Index = 3 Left = 2304 ScaleHeight = 240 ScaleWidth = 240 TabIndex = 25 TabStop = 0 'False Top = 1512 Width = 264 End Begin SSPanel folder2 Alignment = 0 'Left Justify - TOP BevelWidth = 2 BorderWidth = 1 Caption = "&Folder 1, Tab 0" FloodColor = &H00400040& ForeColor = &H00FFFFFF& Height = 1488 Index = 0 Left = 0 Outline = -1 'True TabIndex = 23 Tag = "Tabs2" Top = 0 Width = 2928 Begin TextBox Text2 Height = 876 Left = 144 MultiLine = -1 'True TabIndex = 24 TabStop = 0 'False Text = "Example of folder inside folder and with colored tabs." Top = 360 Width = 2604 End End End Begin PictureBox fixed_controls_picture BackColor = &H00C0C0C0& BorderStyle = 0 'None Height = 1416 Left = 3312 ScaleHeight = 1416 ScaleWidth = 2028 TabIndex = 19 Top = 1404 Width = 2028 Begin CommandButton Command4 BackColor = &H00FF0000& Caption = "Move to 0,0" Height = 372 Left = 108 TabIndex = 15 Top = 936 Width = 1812 End Begin CommandButton tabcontrol BackColor = &H00FF0000& Caption = "En/Dis-able Tab 1" Height = 372 Left = 108 TabIndex = 21 TabStop = 0 'False Top = 36 Width = 1812 End Begin CommandButton Command3 BackColor = &H00FF0000& Caption = "En/Dis-able Folder" Height = 372 Left = 108 TabIndex = 20 Top = 504 Width = 1812 End End Begin CommandButton Command5 Caption = "Second Form" Height = 372 Left = 3564 TabIndex = 17 Top = 396 Width = 1488 End Begin CommandButton Command1 Caption = "This is Folder 0" Height = 372 Left = 288 TabIndex = 4 TabStop = 0 'False Top = 396 Width = 1632 End End Option Explicit Sub Command1_Click () Dim s As String Dim crlf As String crlf$ = Chr$(13) & Chr$(10) s$ = "Left = " & FolderLeft(0) & crlf$ s$ = s$ & "Top = " & FolderTop(0) & crlf$ s$ = s$ & "Width = " & FolderWidth(0) & crlf$ s$ = s$ & "Height = " & FolderHeight(0) & crlf$ MsgBox s$, 0, "Folder Data" End Sub Sub Command2_Click () GotoFolder 1, 1 - CurrentTab(1) End Sub Sub Command3_Click () If folderenabled(0) Then FolderDisable 0 Else FolderEnable 0 End If End Sub Sub Command4_Click () FolderMove 0, 0, 0 End Sub Sub Command5_Click () form2.Show 1 End Sub Sub Form_KeyUp (keycode As Integer, Shift As Integer) keycode = GotoFolderByAccel(0, keycode, Shift) keycode = GotoFolderByAccel(1, keycode, Shift) End Sub Sub Form_Load () Dim success As Integer Move (screen.Width - Width) \ 2, (screen.Height - Height) \ 2 list1.AddItem "This Tab doesn't have" list1.AddItem " caption but it has" list1.AddItem " a graphic." combo1.AddItem "This Tab doesn't have" combo1.AddItem " a graphic." success = DefineFolders(0, 3, panel3d(0), "Tabs1", picture1(0), picture1(1), Nothing, &H600, 12, 0, True, True, 0) SetFixedControl 0, fixed_controls_picture success = DefineFolders(1, 2, Folder2(0), "Tabs2", picture1(2), picture1(3), folder1_container, &H1, 0, 0, False, False, -12) 'TightenForm 0, 0, True ' Best effect if first folder has only one row End Sub Sub Form_Unload (Cancel As Integer) ResetFixedControls 0 End End Sub Sub Picture1_MouseUp (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Dim i As Integer Dim a As Long Dim b As Long Select Case Index Case 0: FolderClick 0, Button, X, Y Case 2: i = FolderClicked(1, X, Y) ' Example of FolderClicked() If i > -1 Then MsgBox "Clicked Tab " & i, 0, "FEATURE!" FolderClick 1, Button, X, Y End Select End Sub Sub tabcontrol_Click () If tabenabled(0, 0) Then TabDisable 0, 0 Else TabEnable 0, 0 End If End Sub